<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<style type="text/css">
<!--


.NormalTex {
	font-family: Arial, Helvetica, sans-serif;
	font-size: 13px;
	color: #333;
	text-align: left;
}
-->
</style>


<script> 
function cerrarse(){ 
window.close() 
} 
</script> 

<%


Dim var_asp,var_asp1,var_asp2,var_asp3,var_asp4,var_asp5,var_asp6,var_asp7,var_asp8,var_asp9,var_asp10,var_asp11,var_asp12



var_asp1 = Request.Form("varia1")
var_asp2 = Request.Form("varia2")
var_asp3 = Request.Form("varia3")
var_asp4 = Request.Form("varia4")
var_asp5 = Request.Form("varia5")
var_asp6 = Request.Form("varia6")



var_asp7 = Request.Form("varia7")' potenci
var_asp8 = Request.Form("varia8") ' longitu equiv
var_asp9 = Request.Form("varia9") ' artefacto
var_asp10 = Request.Form("varia10") 'long
var_asp11 = Request.Form("varia11")  ' material?????
var_asp12 = Request.Form("varia12") 'resultado

var_asp13 = Request.Form("varia13")
var_asp14 = Request.Form("varia14")
var_asp15 = Request.Form("varia15")
var_asp16 = Request.Form("varia16")


Dim fechaactual,d,m,a
fechaactual = Date()


d=Day(fechaactual)
m=Month(fechaactual)
a=Year(fechaactual)

fec=m&"/"&d&"/"&a&"-"&var_asp1


%>
<!--#include file="cnxBd.asp"-->
<%
	
	
'strSQL = "insert into instaladores (direccionp,nombre,resultado) values ('" & dato1 & "','" & dato2 & "','" & dato3 & "')" 

strSQL = "insert into calc_instaladores (nregistro,direccionp,nombre,numdirec,disdirec,   direccion2,num2,medidor,regulador,coding,artefacto,potencia,longitud,longitud2,material,diametro,fecha) values ('" & fec & "','" & var_asp2 & "','" & var_asp3 & "','" & var_asp4 & "','" & var_asp5 & "','" & var_asp13 & "','" & var_asp14 & "','" & var_asp15 & "','" & var_asp16 & "','" & var_asp6 & "', '" & var_asp9 & "', '" & var_asp7 & "', '" & var_asp10 & "', '" & var_asp8 & "', '" & var_asp11 & "','" & var_asp12 & "','"&a&"/"&m&"/"&d&"')" 
   
    Conn.Execute(strSQL) 


   Conn.Close 
   set Conn = nothing 
   'Response.Redirect("ejem07d.asp") 
  



%>

<table width="593" border="0" cellspacing="0" cellpadding="0">
<tr>
    <td height="100" colspan="2" class="NormalTex" align="left" valign="top"><img src="logo.jpg"  border="0"/> </td>
    
  </tr>
<tr>
    <td height="37" colspan="2" class="NormalTex">Valores para el CASO 1, fueron registrados: </td>
    
  </tr>
  
  <tr>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td class="NormalTex"> <input type=button value="Cerrar" onclick="cerrarse()"></td>
    <td>&nbsp;</td>
  </tr>
  
</table>